home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / swood / FW_Font.lha / FW_Font / FontLook.fwrexx.long < prev    next >
Text File  |  1996-12-15  |  5KB  |  211 lines
  1. /* Hiermit erhält man eine Übersicht über seine gesamten Zeichensätze*/
  2. /* © Heiko Schröder / 15.12.96 / Mail: s93324@fh-telekom-leipzig.de */
  3. R='0A'X
  4.  
  5. Address='FinalW'
  6. Options results
  7.  
  8. STATUS PORTNAME
  9. FW = result
  10. address = FW
  11.  
  12. SIGNAL ON BREAK_C
  13.  
  14. 'ShowMessage 2 1 "FontLook V2.60" "für einzelne Fonts..." "(©) Heiko Schröder - 15.12.96" ":-)" "Ok" "(-:"'
  15. 'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr Dokument wird gelöscht!" "Ja" "Abbruch" ""'
  16. if result=2 then call BREAK_C
  17. Cleardoc Force
  18.  
  19. 'ShowMessage 2 1 "Codes oder Layout" "" "" "Codes" "Layout" ""'
  20. cl=result
  21.  
  22. 'ShowMessage 2 1 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""'
  23. ba=result
  24.  
  25. 'ShowMessage 1 1 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""'
  26. lm=result
  27.  
  28. Font
  29. a=RC
  30. If a=0 then do
  31.    Type d2c(32)
  32.    BackSpace
  33.    status FontPath
  34.    FullFontName=result
  35.    pos=LASTPOS('/', FullFontName)
  36.    IF (pos~=0) THEN
  37.        FontName=RIGHT(FullFontName, LENGTH(FullFontName)-pos)
  38.    ELSE DO
  39.        pos=LASTPOS(':', FullFontName)
  40.        IF (pos~=0) THEN
  41.            FontName=Right(FullFontName, LENGTH(FullFontName)-pos)
  42.        ELSE EXIT
  43.    END
  44.  
  45.    IF ba=2 THEN DO
  46.       View 20
  47.    End
  48.  
  49.    GraphicTool
  50.    LinePrefs LineWt .5
  51.  
  52.    If lm=1 then DrawLine 1 .5 14.85 1 14.85
  53.  
  54.    If cl=1 then do
  55.       DrawLine 1 2 3.5 20 3.5
  56.       DrawLine 1 2 26 20 26
  57.       TextTool
  58.  
  59.       Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  60.       SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  61.  
  62.       Do i=0 to 13
  63.          SetTab i*1.3+0.8 Right
  64.       End
  65.  
  66.       Justify Center
  67.       Font Softsans
  68.       FontSize 18
  69.       Type FontName||R||R
  70.  
  71.       Justify Left
  72.  
  73.       a=0
  74.  
  75.       DO w=1 to 15
  76.  
  77.          Font Softsans
  78.          FontSize 8
  79.          DO x=a+33 to a+46
  80.              Type d2c(9) || x || d2c(32) || d2c(x)
  81.          END
  82.  
  83.          Type R
  84.  
  85.          Font FontName
  86.          FontSize 24
  87.          DO x=a+33 to a+46
  88.              Type d2c(9)
  89.             Type d2c(x)
  90.          END
  91.  
  92.          Type R
  93.  
  94.          a=a+14
  95.  
  96.       END
  97.  
  98.       Font Softsans
  99.       FontSize 8
  100.       DO x=a+33 to a+45
  101.           Type d2c(9) || x || d2c(32) || d2c(x)
  102.       END
  103.  
  104.       Type R
  105.  
  106.       Font FontName
  107.       FontSize 24
  108.       DO x=a+33 to a+45
  109.           Type d2c(9)
  110.          Type d2c(x)
  111.       END
  112.  
  113.       Type R
  114.       FontSize 16
  115.       Type d2c(9)||R
  116.       Font Softsans
  117.  
  118.       FontSize 8
  119.       Justify Right
  120.       Type Date(E)
  121.  
  122.    END
  123.  
  124. /* ------- */
  125.  
  126.    If cl=2 then do
  127.       DrawLine 1 2 3.4 20 3.4
  128.       TextTool
  129.       Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  130.       SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  131.  
  132.       Justify Center
  133.       Font Softsans
  134.       FontSize 18
  135.       Type FontName||R
  136.  
  137.       Justify Left
  138.       Font FontName
  139.       FontSize 8
  140.       Type R||"This is 8-point type - not easy to read!"||R
  141.  
  142.       FontSize 9
  143.       Type "9-Point type is about the smallest readable size."||R
  144.  
  145.       FontSize 10
  146.       Type "With 10-point type, we have a normal text size."||R
  147.  
  148.       FontSize 12
  149.       Type "With some Fonts, 12-point type is easier to read."||R
  150.  
  151.       FontSize 14
  152.       Type "14-point type is good for subheadings."||R
  153.  
  154.       FontSize 16
  155.       Type "For larger subheadings, try 16-point type."||R
  156.  
  157.       FontSize 18
  158.       Type "18-point type makes nice small headlines."||R
  159.  
  160.       FontSize 24
  161.       Type "24-point type is for medium headlines."||R
  162.  
  163.       FontSize 36
  164.       Type "36-point is for larger ones."||R
  165.  
  166.       FontSize 48
  167.       Type "48-point almost shouts!"||R
  168.  
  169.       FontSize 60
  170.       Type "60-point is huge!"||R
  171.  
  172.       FontSize 12
  173.       Font SoftSans
  174.       Type "NORMAL"||R
  175.       Font FontName
  176.       Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R
  177.       Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R||R
  178.       Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß"||R||R
  179.  
  180.       Font SoftSans
  181.       Type "ERWEITERTER SCHRIFTCODE"||R
  182.       Font FontName
  183.       j=0
  184.       Do i=1 to 4
  185.          Do k=128+j to 159+j
  186.             Type d2c(k)
  187.          End
  188.          Type R
  189.          j=j+32
  190.       End
  191.    END
  192.    View
  193.    'ShowMessage 2 1 "Wie geht es weiter?" "" "" "Speichern" "Drucken" "Abbrechen"'
  194.    If result=1 then Save
  195.    If result=2 then Print
  196. END
  197. else do
  198.    'ShowMessage 1 1 "FW kann diesen Font nicht anzeigen..." "Es ist kein FW typischer Font..." "" "Okay" "" ""'
  199. end
  200.  
  201. 'ShowMessage 2 1 "Vielen Dank für die Benutzung." "" "" ":-)" "Bitte" "(-:"'
  202.  
  203. EXIT
  204.  
  205. BREAK_C:
  206. 'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""'
  207. address "REXX"
  208. View
  209. CLOSE("file")
  210. EXIT
  211.